Makro zuweisen

[Portgas D. Ace]

Hallo liebe Forummitglieder,

damit ich meine Tabellen schneller bereinigen kann, habe ich ein Makro erstellt und das einer Form die ich eingefügt habe zugewiesen. Ich kann nun mit einem einzelnen Klick die ganze Tabelle bereinigen oder halt auf null bringen. Mein Problem hierbei ist, dass diejenigen die die Informationen in die Tabelle schreiben diese Funktion nicht anwenden sollen. Auch nicht per Versehen. Wie kann ich das verhindern, dass die anderen diesen Link benutzen können. Ich habe versucht diese Zeilen zu sperren, jedoch funktioniert das immer noch. Hat da einer eine Idee?

[Werner.M]

Hallo,

dann beschränk das doch einfach auf deinen Benutzernamen

Code:

Public Sub aaa()

'dient nur, damit du deinen Benutzernamen
'auslesen kannst
'diese Zeile dann entfernen
MsgBox Application.UserName

If Application.UserName = "Ergebnis der obigen Messagebox" Then
   'statt der Messagebox hier dann dein Makrocode zum
   'Bereinigen des Blattes
   MsgBox "Makro möglich."
Else
   MsgBox "Nicht berechtigt."
End If
End Sub

Gruß Werner

[schauan]

Hallöchen,

eine andere Version wäre noch, den Code zum Bereinigen in einer anderen Datei zu halten. Du musst dafür eben nur noch zusätzlich die Mappe bei den Bereinigungen angeben. Falls in Deiner Datendatei sonst kein Makro ist, hätte das auch noch den Vorteil, dass sie eben ohne ist Zudem haben die anderen User den Code dann gar nicht erst.

Im Prinzip was in der Art:

Workbooks("MeineDaten.xlsx").Sheets("Irgendeins").ClearContents

oder so

With Workbooks("MeineDaten.xlsx")
.Sheets("Irgendeins").Clear
'... und nochwas machen, beachte den Punkt vor Sheets ...
End With

oder ...