Thema Datum  Von Nutzer Rating
Antwort
20.01.2022 13:23:55 Björn
NotSolved
20.01.2022 13:41:01 Gast2358
NotSolved
Rot Nur eigene Einträge löschen
 20.01.2022 18:59:07 xlKing
NotSolved
21.01.2022 09:08:36 Björn
NotSolved
21.01.2022 22:56:47 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
20.01.2022 18:59:07		 Views:
838		 Rating:
     
Antwort:
  Ja
Thema:
Nur eigene Einträge löschen

Hallo Björn,

wo ist das Problem? Wenn du bereits einen Code hast, mit dem du den Namen ausliest und einträgst, brauchst du in dem anderen Code nur den bereits eingetragenen Namen mit dem ausgelesenen vergleichen. Das könnte z.B. so aussehen:

Sub Eintragen()
 
 ActiveSheet.Unprotect "Passwort"
   If ActiveCell.Value = "" Then ActiveCell.Value = Application.UserName
 ActiveSheet.Protect "Passwort"

End Sub

Sub Loeschen()

  If Application.UserName = ActiveCell.Value Then
    ActiveSheet.Unprotect "Passwort"
      ActiveCell.ClearContents
    ActiveSheet.Protect "Passwort"
  Else
    MsgBox "Sie sind nicht berechtigt, diesen Wert zu löschen!", vbExclamation
  End If
  
End Sub

PS: Den Username der Applikation kann man überschreiben und sich so Berechtigung verschaffen. Außerdem kann es auch mal sein, dass dieser nicht korrekt hinterlegt ist. Besser wäre es wenn man den Username von der Windows-Anmeldung ausliest. Das geht mit Environ("Username")

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.01.2022 13:23:55 Björn
NotSolved
20.01.2022 13:41:01 Gast2358
NotSolved
Rot Nur eigene Einträge löschen
 20.01.2022 18:59:07 xlKing
NotSolved
21.01.2022 09:08:36 Björn
NotSolved
21.01.2022 22:56:47 xlKing
NotSolved