Groups > microsoft.public.excel.programming > #109110

Re: ActiveCell VBA with Recalulation of Range Under UserInterfaceOnly

Path	csiph.com!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!buffer2.nntp.dca1.giganews.com!buffer1.nntp.dca1.giganews.com!nntp.newsgroupbanter.com!news.newsgroupbanter.com.POSTED!not-for-mail
NNTP-Posting-Date	Tue, 26 Jul 2016 22:49:02 -0500
From	edelkochen <edelkochen@gmail.com>
Newsgroups	microsoft.public.excel.programming
Subject	Re: ActiveCell VBA with Recalulation of Range Under UserInterfaceOnly
Date	Wed, 27 Jul 2016 04:07:00 +0100
Message-ID	<edelkochen.11dde4a8@excelbanter.com> (permalink)
Organization	ExcelBanter.com
User-Agent
X-Newsreader
X-Originating-IP
References	<38106ca8-93b6-4266-a837-c8820827a96a@googlegroups.com>
X-No-Archive	Yes
Lines	20
X-Usenet-Provider	http://www.giganews.com
X-Trace	sv3-0IeTFZJJg8AYnLM4SEWAlipMPh+qjVcx6xRBD4uF9adjbPG+AWFG/OMJ1j5wqFFJ42GbuPTFUuVLQmk!yG0gn7dHhz3TTA2nO34tB8KwftmMjm8aRWWY4T0+t3jw4Fxml9XWFiQ8/azWjZqNmAHw5gftlWvk!CGZKD/Ie1JSB
X-Complaints-To	abuse@newsgroupbanter.com
X-Abuse-and-DMCA-Info	Please be sure to forward a copy of ALL headers
X-Abuse-and-DMCA-Info	Otherwise we will be unable to process your complaint properly
X-Postfilter	1.3.40
X-Original-Lines	1
X-Original-Bytes	2065
Xref	csiph.com microsoft.public.excel.programming:109110

Show key headers only | View raw

'David Godinger[_2_ Wrote: 
> ;1624089']I&#8217;m using UserInterfaceOnly, so that I can run macros
> and still keep my sheet protected. I tried to use ActiveCell to
> calculate only certain ranges, without stopping protection for the rest
> of the worksheet. I need to recalculate only those ranges, but leave the
> rest of the sheet, unchanged, and on manual calculation. I tested
> ActiveCell and made sure that it works for, as example, putting up a
> message box, but I can&#8217;t get it do what I want. Here&#8217;s the
> VBA: Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As
> Range ' The variable KeyCells contains the cells that will ' cause an
> alert when they are changed. Set KeyCells = Range(&quot;AJ6:DT105&quot;)
> If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is
> Nothing Then Range(&quot;last4SessionsCalculations&quot;).Calculate
> Range(&quot;rolesSuggested&quot;).Calculate End If End Sub uppppppppppppppppppppppppppppp lên nao ^^




-- 
edelkochen

Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Find similar | Unroll thread

Thread

ActiveCell VBA with Recalulation of Range Under UserInterfaceOnly David Godinger <daveg7@gmail.com> - 2016-07-25 10:45 -0700
  Re: ActiveCell VBA with Recalulation of Range Under UserInterfaceOnly GS <gs@v.invalid> - 2016-07-25 14:21 -0400
    Re: ActiveCell VBA with Recalulation of Range Under UserInterfaceOnly David Godinger <daveg7@gmail.com> - 2016-07-25 19:07 -0700
      Re: ActiveCell VBA with Recalulation of Range Under UserInterfaceOnly GS <gs@v.invalid> - 2016-07-25 22:44 -0400
  Re: ActiveCell VBA with Recalulation of Range Under UserInterfaceOnly ltomama0945 <ltomama0945@gmail.com> - 2016-07-27 02:50 +0100
  Re: ActiveCell VBA with Recalulation of Range Under UserInterfaceOnly edelkochen <edelkochen@gmail.com> - 2016-07-27 04:07 +0100

csiph-web