Komórka w Excelu ma ustalony format daty rrrr-mm-dd; jeżeli wpiszę tekst, wówczas pojawia się komunikat o błędzie i prośba o wpisanie prawidłowej wartości.
Natomiast w przypadku wklejania wartości tekstowej z innego arkusza, to pole traci swoje właściwości i możliwe jest wklejenie tekstu.
Czy jest możliwe zablokowanie wklejania do tej komórki wartości innych niż o ustalonym formacie?
Z góry dziękuję za odpowiedź.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim BylaZmiana As Boolean
Dim ZakresWspolny As Range
On Error GoTo Obsluga
'jeśli to spowoduje błąd to nie ma zmian w chronionym zakresie A1:A2
Application.Intersect(Me.Range("A1:A2"), Target).Select
BylaZmiana = True
'ta linia prawdopodobnie spowoduje błąd gdy było wklejanie
If Target.Validation.Type <> xlValidateDate Then Resume Next
Czyszczenie:
On Error Resume Next
Application.EnableEvents = True
Exit Sub
Obsluga:
Select Case Err
Case 91
'prawdopodobnie do zignorowania
Case 1004
If BylaZmiana Then
'prawdopodobnie błąd spowodowany wklejeniem w chronionym zakresie
MsgBox "Nie wolno niszczyć sprawdzania poprawności!", vbExclamation
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
Case Else
MsgBox Err & " - " & Err.Description, vbCritical
End Select
Resume Czyszczenie
End Sub
Na pewno jest to możliwe z wykorzystaniem zdarzenia Change z poziomu VBA, ale nie jest to specjalnie proste.
