TB ausblenden, wenn Bedingung zutrifft

Guten Abend zusammen.
Mit unten stehenden Makros möchte ich festlegen, dass bestimmte Programme, nur auf dem Rechner dessen Name "Verwaltung" ist, ausgeführt werden können. Funktioniert auch alles.
Meine Frage:
Das TB "Dummy" soll sich automatisch ausblenden, wenn der Computername "Verwaltung" ist. Geht das überhaupt? wenn ja, kann mir dann bitte jemand bei der Lösung helfen?
Option Explicit
Dim wks As Worksheet


Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each wks In Worksheets
If wks.Name  "Dummy" Then wks.Visible = xlSheetVeryHidden
Next
End Sub


Private Sub Workbook_Open()
If VBA.Environ("Computername")  "Verwaltung" Then ThisWorkbook.Close False
For Each wks In Worksheets
wks.Visible = xlSheetVisible
Next
End Sub

Besten Dank schon mal
Grüsse
Josef

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() If VBA.Environ("Computername") "Verwaltung" Then For Each wks In Worksheets If wks.Name = "Dummy" Then wks.Visible = True Else wks.Visible = True End If Next Else For Each wks In Worksheets If wks.Name = "Dummy" Then wks.Visible = False Else wks.Visible = True End If Next End If End Sub

Option Explicit Dim wks As Worksheet Private Sub Workbook_BeforeClose(Cancel As Boolean) Screen False With ThisWorkbook .Sheets("Dummy").Visible = True For Each wks In .Worksheets If wks.Name <> "Dummy" Then wks.Visible = xlVeryHidden End If Next .Save End With Screen End Sub Private Sub Workbook_Open() If VBA.Environ("Computername") <> "Verwaltung" Then ThisWorkbook.Close False End If Screen False With ThisWorkbook For Each wks In .Worksheets If wks.Name <> "Dummy" Then wks.Visible = True End If Next .Sheets("Dummy").Visible = xlVeryHidden End With Screen End Sub Private Sub Screen(Optional Zustand As Boolean = True) 'Bildschirmaktualisierung Application.ScreenUpdating = Zustand 'ESC Taste abfangen Application.EnableCancelKey = IIf(Zustand = True, 1, 0) End Sub

Option Explicit Dim wks As Worksheet Private Sub Workbook_BeforeClose(Cancel As Boolean) Screen False With ThisWorkbook .Sheets("Dummy").Visible = True For Each wks In .Worksheets If wks.Name <> "Dummy" Then wks.Visible = xlVeryHidden End If Next .Save End With Screen End Sub Private Sub Workbook_Open() Screen False If VBA.Environ("Computername") <> "Verwaltung" Then If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close False End If Exit Sub End If With ThisWorkbook For Each wks In .Worksheets If wks.Name <> "Dummy" Then wks.Visible = True End If Next .Sheets("Dummy").Visible = xlVeryHidden End With Screen End Sub Private Sub Screen(Optional Zustand As Boolean = True) 'ESC Taste abfangen Application.EnableCancelKey = IIf(Zustand = True, 1, 0) 'Events Aus Application.EnableEvents = Zustand 'Bildschirmaktualisierung Application.ScreenUpdating = Zustand End Sub

Beliebteste Forumthreads (12 Monate)

TB ausblenden, wenn Bedingung zutrifft

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

TB ausblenden, wenn Bedingung zutrifft

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread