Makro mit Makro ändern
27.06.2006 18:36:06
Geroldd@aol.com
ich habe ein kleines Problem und benötige Eure Hilfe.
Ich habe ein Makro das beim Starten der Datei prüft ob der User
berechtigt ist.
Nachfolgend das Makro:
Sub Kennung_pruefen()
Application.DisplayAlerts = False
UN = Environ("UserName")
CN = Environ("Computername")
If UN = "tpador" And CN = "TNB30753" Or _
UN = "TPADor" And CN = "TNB30753" Then
sichtbar
Else: MsgBox ("Sie haben keine Berechtigung")
ThisWorkbook.Close
End If
Application.DisplayAlerts = True
End Sub
Jetzt habe ich durch einen Rechnerwechsel nicht mehr denselben Rechnernamen
und muss alle schon gespeicherten Dateien (Um sie wieder öffnen zu können) händisch ändern (auf TNB30147).
Nun meine Frage:
Gibt es eine Möglichkeit dies zu Automatisieren.
Ich stelle mir ein Makro vor das geöffnete Dateien (Code) durchsucht und
abändert.
Für Eure Hilfe im voraus schon mal besten Dank
Gruß
Gerold Dornbusch