Hide all Sheets
i FOUND SOLUTION!!
tHANKS ALL!
Roba1
Dim Password 'This line of code is optional
Dim myCount 'This line of code is optional
Dim i 'This line of code is optional
myCount = Application.Sheets.Count - 1
Sheets(1).Select 'This line of code selects the 1st sheet
For i = 1 To myCount
Password = "1234"
ActiveSheet.Protect Password, True, True, True
If i = myCount Then
End
End If
Call HideSheet
Next i
ActiveWorkbook.Save
'
End Sub
Sub HideSheet()
Dim wsSheet As Worksheet
For Each wsSheet In Worksheets
wsSheet.Visible = wsSheet.Name = "List3"
Next wsSheet
End Sub
Roba1 je napisal:
Also if make a change like that (left one sheet) it is stil not
working. If I use alone secound part of code it works, but together
with the first part it do not work. I have here two FOR functions. Do I
have to separate them with I dont know what???
Roba1
Sub Auto_Close()
'
' Makro1 Makro
' Makro ustvaril: ocvirk, dne 7.6.2006
'
Dim Password 'This line of code is optional
Dim myCount 'This line of code is optional
Dim i 'This line of code is optional
Dim wsSheet As Worksheet
myCount = Application.Sheets.Count
Sheets(1).Select 'This line of code selects the 1st sheet
For i = 1 To myCount
Password = "1234"
ActiveSheet.Protect Password, True, True, True
If i = myCount Then
End
End If
ActiveSheet.Next.Select
Next i
For Each wsSheet In Worksheets
wsSheet.Visible = wsSheet.Name = "List3"
Next wsSheet
ActiveWorkbook.Save
'
End Sub
Xcelion je napisal:
Hi Roba,
You can't hide all the sheets.Atleast one sheet must be visible
Thanks
Xcelion
"Roba1" wrote:
Here is my code!
The last part of code that should hide all sheets do not work , the
first part for password is OK.
Where have I go wrong!
******************
Sub Auto_Close()
'
'
Dim Password 'This line of code is optional
Dim myCount 'This line of code is optional
Dim i 'This line of code is optional
myCount = Application.Sheets.Count
Sheets(1).Select 'This line of code selects the 1st sheet
For i = 1 To myCount
Password = "1234"
ActiveSheet.Protect Password, True, True, True
If i = myCount Then
End
End If
ActiveSheet.Next.Select
Next i
Dim myCount1 'This line of code is optional
Dim j 'This line of code is optional
myCount1 = Application.Sheets.Count
heets(1).Select 'This line of code selects the 1st sheet
For j = 1 To myCount1
ActiveSheet.Visible = xlSheetVeryHidden
If j = myCount1 Then
End
End If
ActiveSheet.Next.Select
Next j
ActiveWorkbook.Save
End Sub
************
Roba
|