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

One sheet must remain visible at all times. You can make a cover sheet and
hide all but that one.

Mike F
"Roba1" wrote in message
oups.com...
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

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

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

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