2 Problems: #1 Expand/Collapse groups in protected Worksheets & #2 Add username in worksheets.

[Atiqul Haque]

Problem#1
Expand/Collapse groups in protected Worksheets:

When i put the following vba codes, it works only for one protected worksheet. But i need it for several protected worksheets.
Pls help someone to solve this issue. Your help will be highly appreciated.
Thanks in advance.


In a standard Module:

Sub protect_sheet()
ActiveSheet.Unprotect "639"
Dim Sh As Worksheet
Set Sh = ThisWorkbook.Sheets("CBC_Report")
Sh.Protect "639", userinterfaceonly:=True
Sh.EnableOutlining = True
ActiveSheet.Protect "639"
End Sub

In ThisWorkbook:

Private Sub Workbook_Open()
Dim Sh As Worksheet
Set Sh = ThisWorkbook.Sheets("CBC_Report")
Sh.Protect "639", userinterfaceonly:=True
Sh.EnableOutlining = True
End Sub

Problem#2
I need to Add Username in a fixed cell of a worksheet when a user login by Login Interface.

 

[Atiqul Haque]

Problem#1 has been solved. Complete code has given below for reference.


IN THISWORKBOOK:

Private Sub Workbook_Open()

LoginInstance = o

Application.Visible = False

frmlogin.Show


Dim Sh As Worksheet
Set Sh = ThisWorkbook.Sheets("SheetName")
Sh.Protect "Password", userinterfaceonly:=True
Sh.EnableOutlining = True

End Sub

IN STANDARD MODULE:

Option Explicit

Sub protect_sheet()

Dim Sh As Worksheet
Set Sh = ThisWorkbook.Sheets("SheetName")

Sh.Protect "Password", userinterfaceonly:=True
Sh.EnableOutlining = True

End Sub