Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Kommentare in gechütztem Blatt

Forumthread: Kommentare in gechütztem Blatt

Kommentare in gechütztem Blatt
12.02.2007 17:30:54
Stefan
Hallo,
gibt es eine Möglichkeit, via eines VBA den Blattschutz so zu konfigurieren,
damit in den nicht geschützten Tabellen Kommentare möglich sind.
Danke für Antwort
Stefan
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentare in gechütztem Blatt
12.02.2007 20:40:17
Stefan
Hallo Oberschlumpf,
hast Du auch wirklich auf meine Frage geantwortet,
oder bist Du bei einer falschen Frage gelandet.
Jedenfalls kann ich mit Deiner Antwort nix anfangen.
Ich suche nach einer Möglichkeit, Kommentare in ein geschütztes Blatt zu schreiben.
Die Tabelle darf keinesfalls entsperrt werden, da sonst die User gleich beginnen,
die Formatierung zu ändern.
Danke
Stefan
Anzeige
AW: Kommentare in gechütztem Blatt
13.02.2007 07:06:21
Oberschlumpf
Hi
Ich habe einem Stefan auf diese Frage hier geantwortet:
https://www.herber.de/forum/messages/845583.html
Und ich wollte wissen, ob DU der selbe Stefan bist?
Wenn JA, dann warte ich in dieser Frage
https://www.herber.de/forum/messages/845583.html
noch auf eine Antwort von dir.
Ist denn diese Frage
https://www.herber.de/forum/messages/845583.html
nun von dir oder nicht?
Ciao
Thorsten
Anzeige
AW: Kommentare in gechütztem Blatt
12.02.2007 21:41:11
Hubert
Hi,
schütze das Blatt per VBA:
ActiveSheet.Protect contents:=True, userinterfaceonly:=True
Dann kannst du, aber nur mit Makro, Kommentare einfügen.
mfg Hubert
AW: Kommentare in gechütztem Blatt
14.02.2007 01:18:21
stefan
Hallo,
danke an alle!
dieses makro funktioniert nun bestens!
Gruss
stefan

Private Sub Kommentar_einfuegen()
Dim strComment As String
If ActiveSheet.Name <> "MonatsUebersicht" Then Exit Sub
ActiveSheet.Unprotect Password:="xxx"
Selection.ClearComments
strComment = InputBox("Bitte gib den Kommentar ein")
With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.Text Text:=Application.UserName & vbLf & strComment
End With
With Application
.UserName = " "
End With
ActiveSheet.Protect Password:="xxx"
End Sub

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum