If Abfrage Laufwerk für enabled Commandbuttons

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() Dim objCon As Control Dim sPathZelle As String, sPathMe As String 'Speicherpfad dieser Datei sPathMe = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\") 'Pfad in Zelle A3 sPathZelle = Worksheets("LagerHolz").Range("A3") sPathZelle = IIf(Right$(sPathZelle, 1) = "\", sPathZelle, sPathZelle & "\") If sPathMe <> sPathZelle Then 'Worksheets("LagerHolz"). For Each objCon In Controls If TypeName(objCon) = "CommandButton" Then If objCon.Name <> "CommandButton16" And objCon.Name <> "CommandButton9" Then objCon.Enabled = False End If End If Next objCon End If End If

Private Sub UserForm_Initialize() Dim objCon As Control Dim sPathZelle As String, sPathMe As String 'Speicherpfad dieser Datei sPathMe = IIf(Right$(ThisWorkbook.Path, 1) = "\", ThisWorkbook.Path, ThisWorkbook.Path & "\") 'Pfad in Zelle A3 sPathZelle = Worksheets("LagerHolz").Range("A3") sPathZelle = IIf(Right$(sPathZelle, 1) = "\", sPathZelle, sPathZelle & "\") If sPathMe Like sPathZelle & "*" Then For Each objCon In Controls If TypeName(objCon) = "CommandButton" Then If objCon.Name <> "CommandButton16" And objCon.Name <> "CommandButton9" Then objCon.Visible = False End If End If Next objCon End If End Sub

Hi Tino
Schade, leider nicht.
Versuche es einfach zu umschreiben.
Diese Datei sollte nur bei uns laufen. Daher habe ich in Zelle A3 einen Laufwerksbuchstaben und ein
entsprechenden Ordner eingeschrieben. F:\Daten\Lagerverwaltung
Diese Bezeichnung für das Laufwerk und den Ordner kenne nur ich. Ich könnte auch den Ordner Adminstration nehmen oder völlig ein anderes Laufwerk.
Damit diese Datei überhaupt läuft wollte ich diese an unser System anbinden. Sollte jemand von den fast
1000 Mitarbeiter diese Datei mit nach Hause nehmen funktioniert sie nicht, da er das Laufwerk und den von mir angegebenen Ordner nicht hat.
Sprich: A3 ist fixer Wert also ein Laufwerksbuchstaben und irrgend ein Ordner. Falls es dieses Laufwerk und den Ordner nicht gibt sollte nur der Commandbutton 16 und 9 erscheinen. Im Commandbutton 9 wird eine UF aufgerufen mit Passwort versehen um den Inhalt von A3 zu ändern und mit Commandbutton 16 wird die Datei (schliessen/speichern) geschlossen.
Gruß
Wolfgang

Private Sub UserForm_Initialize() Dim objCon As Control Dim sPathZelle As String 'Pfad in Zelle A3 sPathZelle = Worksheets("LagerHolz").Range("A3") If Dir(sPathZelle, vbDirectory) = "" Then For Each objCon In Controls If TypeName(objCon) = "CommandButton" Then If objCon.Name <> "CommandButton16" And objCon.Name <> "CommandButton9" Then objCon.Visible = False End If End If Next objCon End If End Sub

Beliebteste Forumthreads (12 Monate)

If Abfrage Laufwerk für enabled Commandbuttons

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

If Abfrage Laufwerk für enabled Commandbuttons

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread