kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: kopieren
von: jens
Geschrieben am: 06.04.2005 20:23:20
hallo nocheimal
wäre es auch möglich zu meinen beitrag von eben rote zeilen erst nach Passwort eingabe zu kopieren?
danke und gruß jens

Bild

Betrifft: AW: kopieren
von: Willi
Geschrieben am: 06.04.2005 21:11:54
Hallo Jens
Kommt drauf an, wie stark der Schutz durch das Passwort sein soll. Vermutlich reicht die Lösung mit einer Inputbox ("Mein Passwort" ist das Passwort das eingegeben werden muss, aber ohne ""):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngZelle As Range
Dim strPasswort As String
For Each rngZelle In Selection
    If rngZelle.Interior.ColorIndex = 3 Then
        strPasswort = InputBox("Rote Zeilen dürfen nur mit Passwort kopiert werden")
        If strPasswort = "Mein Passwort" Then
            Exit Sub
        Else
            MsgBox "Rote Zeilen dürfen nicht kopiert werden"
            Range("A1").Select
            Exit For
        End If
    End If
Next
End Sub

Gruss
Willi
Bild

Betrifft: AW: kopieren
von: jens
Geschrieben am: 06.04.2005 21:41:00
Danke danke
du hast mir sehr geholfen
jens
 Bild

Beiträge aus den Excel-Beispielen zum Thema "kopieren"