P
PSM
I have a spreadsheet with that is password protected and has the
following code also included.
I would like to let the user save the tab they are working on
effectively as a flat sheet (copy, paste as values) but the password is
an issue.
How do I overcome this ?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Welcome Sheet").Visible = xlSheetVisible
Sheets("Short F3").Visible = xlSheetVeryHidden
End Sub
Private Sub Workbook_Open()
Select Case LCase(Environ("username"))
Case Is = "user.1", "user.2", etc etc
Sheets("Short F3").Visible = xlSheetVisible
Sheets("Welcome Sheet").Visible = xlSheetVeryHidden
Sheets("Short F3").Select
Range("A1").Select
Case Else
Application.DisplayAlerts = False
Workbooks("Master File.XLS").Close
End Select
' End If
End Sub
following code also included.
I would like to let the user save the tab they are working on
effectively as a flat sheet (copy, paste as values) but the password is
an issue.
How do I overcome this ?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Welcome Sheet").Visible = xlSheetVisible
Sheets("Short F3").Visible = xlSheetVeryHidden
End Sub
Private Sub Workbook_Open()
Select Case LCase(Environ("username"))
Case Is = "user.1", "user.2", etc etc
Sheets("Short F3").Visible = xlSheetVisible
Sheets("Welcome Sheet").Visible = xlSheetVeryHidden
Sheets("Short F3").Select
Range("A1").Select
Case Else
Application.DisplayAlerts = False
Workbooks("Master File.XLS").Close
End Select
' End If
End Sub