MS Excel

Jste šikovný. To musí být šíleně přehledné.

Rozdĕlte proceduru na více a pod tlačítkem postupně zavolejte všechny části-procedury.citovat

Za prvé neverím tomu, že sa to nedá rozsekať a/alebo parametrizovať procedúry, či rozhodiť do modulov. To je blbosť.
Za druhé nikto Vám to neurobí, bez toho, aby ste zverejnil ten kód, čo je logické.
Za tretie, len všeobecne, napr. si najskôr urobte iba base procedúru na kontrolu práv, napr Select Case, odtiaľ volajte s parametrom inú procedúru na skrytie/odkrytie. Ďalej odstráňte všetky Sheets("názovlistu").Select a rovno použite Sheets("názovlistu").potrebná_operácia.
To logovanie alebo čo to vlastne robíte, je asi nejaký zápis užívateľa a jeho akcie. Ak je tak, tak to je jasný kandidát na samostatnú procedúru
Sub LogProc(User as String, Akcia as Long, Cas as Double)
... zapíšte...
End Sub
...
Inak povedané, opakujúce sa časti kódu majú byť samostatná procedúra.
Opakujúce sa časti kódu so zmeneným parametrom, majú byť samostatná parametrizovaná procedúra.
...

Čo viac napísať, keď sme "slepí"...citovat

Tak word mi to jako přílohu nebere, posílám excel.
Ale to že to nejde rozsekat je můj laický názor, s VBA terpve začínám a učím se za pochodu.citovat

Mno, ale nedalo mi to.
Toto je kód, jak by pravděpodobně vypadal u mne
Při volání procedury vyplníte pouze názvy listů, které chcete skrýt, odděleny středníkem.
Nevím, jestli to u vás bude fungovat - bez přílohy nemohu odladit - takto jsem to vyčetl z toho kódu (neladil jsem ani u sebe - musel bych vytvářet sešit s podobnou strukturou a to se mi nechce) - námět ke studiu

Private Sub CommandButton1_Click()
Dim sUserName As String
Dim sPassword As String

sUserName = TextBox1.Value
sPassword = TextBox2.Value

If Not sUserName = "" And sPassword = "" Then
Dim iUser As Long
iUser = -1
On Error Resume Next
iUser = Application.WorksheetFunction.Match(sUserName, Sheets("UserData").Columns(1), 0)
On Error GoTo 0

If Not iUser = -1 Then
If Sheets("UserData").Cells(iUser, 2).Value2 = sPassword Then
Dim bScreen As Boolean
bScreen = Application.ScreenUpdating
Application.ScreenUpdating = False

Select Case CStr(Sheets("UserData").Cells(iUser, 3).Value2)
Case "MASTER"
Call subSetSheets(vbNullString)
Case "OSTAT"
Call subSetSheets("START;PLT;PL_TS;1;2;3")
Case "OSOUKR"
Call subSetSheets("START;PLT;PL_TS;1;2;3;1S;2S;3S")
End

Application.ScreenUpdating = bScreen
Else
MsgBox "NESPRÁVNÉ HESLO!"
End If
Else
MsgBox "NEEXISTUJÍCÍ UŽIVATEL!"
End If
Else
MsgBox "PROSÍM VYPLŇTE VŠECHNA POLE"
End If

Unload Me
End Sub

Private Sub subSetSheets(ByVal sSheets As String)
sSheets = "#" & Replace$(sSheets, ";", "#;#") & "#"

Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
If InStr(sSheets, "#" & sh.Name & "#") = 0 Then
sh.Visible = xlSheetVisible
Else
sh.Visible = xlVeryHidden
End If
Next sh
Set sh = Nothing
End Subcitovat

S tou "visibility" listů mi to přijde jak nějaká hra. Nejde použít Array?citovat