I'm making a form to protect all sheets or all selected sheets with a password but trying this I found a problem.
How can I know all selected sheets at moment of begin the action to apply code only to them ?
Thanks and Regards
Daniel.
I'm making a form to protect all sheets or all selected sheets with a password but trying this I found a problem.
How can I know all selected sheets at moment of begin the action to apply code only to them ?
Thanks and Regards
Daniel.
dim wks as worksheet
for each wks in activewindow.selectedsheets
'your code
next wks
dbarelli wrote:
>
> I'm making a form to protect all sheets or all selected sheets with a
> password but trying this I found a problem.
> How can I know all selected sheets at moment of begin the action to
> apply code only to them ?
>
> Thanks and Regards
> Daniel.
>
> --
> dbarelli
> ------------------------------------------------------------------------
> dbarelli's Profile: http://www.excelforum.com/member.php...o&userid=31275
> View this thread: http://www.excelforum.com/showthread...hreadid=570888
--
Dave Peterson
Give this a try...
Sub SelectedSheets()
Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
MsgBox wks.Name
Next wks
End Sub
--
HTH...
Jim Thomlinson
"dbarelli" wrote:
>
> I'm making a form to protect all sheets or all selected sheets with a
> password but trying this I found a problem.
> How can I know all selected sheets at moment of begin the action to
> apply code only to them ?
>
> Thanks and Regards
> Daniel.
>
>
> --
> dbarelli
> ------------------------------------------------------------------------
> dbarelli's Profile: http://www.excelforum.com/member.php...o&userid=31275
> View this thread: http://www.excelforum.com/showthread...hreadid=570888
>
>
Sorry... Don't use that procedure name as it is a reserved word (One of the
properties of the Activewindow as we can see from the code). Change it to
something else like...
Sub MySelectedSheets()
Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
MsgBox wks.Name
Next wks
End Sub
--
HTH...
Jim Thomlinson
"Jim Thomlinson" wrote:
> Give this a try...
>
> Sub SelectedSheets()
> Dim wks As Worksheet
>
> For Each wks In ActiveWindow.SelectedSheets
> MsgBox wks.Name
> Next wks
> End Sub
>
> --
> HTH...
>
> Jim Thomlinson
>
>
> "dbarelli" wrote:
>
> >
> > I'm making a form to protect all sheets or all selected sheets with a
> > password but trying this I found a problem.
> > How can I know all selected sheets at moment of begin the action to
> > apply code only to them ?
> >
> > Thanks and Regards
> > Daniel.
> >
> >
> > --
> > dbarelli
> > ------------------------------------------------------------------------
> > dbarelli's Profile: http://www.excelforum.com/member.php...o&userid=31275
> > View this thread: http://www.excelforum.com/showthread...hreadid=570888
> >
> >
It was more easy than I think.
Thanks a lot !!
Dany.
I want to create a new workbook and insert two selected sheets. Any ideas?
Chuckles123
without too much info to go on...
Option Explicit
Sub testme()
Dim wkbk As Workbook
Dim newwkbk As Workbook
Set wkbk = Workbooks("book1.xls")
Set newwkbk = Workbooks.Add
wkbk.Worksheets(Array("sheet1", "sheet3")).Copy _
before:=newwkbk.Worksheets(1)
End Sub
Chuckles123 wrote:
>
> I want to create a new workbook and insert two selected sheets. Any
> ideas?
> Chuckles123
>
> --
> Chuckles123
> ------------------------------------------------------------------------
> Chuckles123's Profile: http://www.excelforum.com/member.php...o&userid=14948
> View this thread: http://www.excelforum.com/showthread...hreadid=570888
--
Dave Peterson
Thanks very much, Dave.
I have some add'l code re: this query that I would like to run by you -- I will respond to the thread that I originated last nite.
Chuckles123
If you mean create a workbook with two selected sheets, just
wkbk.Worksheets(Array("sheet1", "sheet3")).Copy
--
Regards,
Tom Ogilvy
"Chuckles123" <[email protected]>
wrote in message
news:[email protected]...
>
> Thanks very much, Dave.
> I have some add'l code re: this query that I would like to run by you
> -- I will respond to the thread that I originated last nite.
>
> Chuckles123
>
>
> --
> Chuckles123
> ------------------------------------------------------------------------
> Chuckles123's Profile:
> http://www.excelforum.com/member.php...o&userid=14948
> View this thread: http://www.excelforum.com/showthread...hreadid=570888
>
Thanks for your post, Tom.
Chuckles123
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks