zabraniti cuvanje sheet-a ili uvek par polja BLANK

Kao sto i naslov kaze. Treba mi kod, gde ce biti zabranjeno cuvanje par sheet-ova osim polja koja sam ja postavio za unos. Naravno treba par polja da ostane korisno ali da uvek pri po kretanju tih par polja da budu BLANK. Nadam se da sam lepo objasnio!

A da koristiš Template?

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

ne znam kako? Nisam bas profi za excell vise sam korisnik koji tezi ka tome?

nasao sam kod koji brise celiji pri otvaranju

Private Sub Workbook_Open()
With Sheets("Sheet1").Range("B1")
.Font.ColorIndex = 0
.ClearContents
.Font.Bold = False
End With
End Sub

ali nece da obrise merged cell samo singl cell

e sad pomocu moje upornosti nasao sam i kod koji brise merged cell ali samo ako se klikne na macro dugme da to uradi ali meni treba da bude pri otvaranju kako to?

Option Explicit

Sub ClearRange()

Dim DelRange As Range
Dim MergeRange() As String
Dim Cel As Range
Dim i As Long

'Change this range as needed.
Set DelRange = Range("A1:D50")

For Each Cel In DelRange
If Cel.MergeArea.Cells.Count > 1 Then
i = i + 1
ReDim Preserve MergeRange(1 To i)
MergeRange(i) = Cel.MergeArea.Address
Cel.MergeArea.UnMerge
End If
Next

DelRange.ClearContents

If i > 0 Then
For i = 1 To UBound(MergeRange)
Range(MergeRange(i)).Merge
Next i
End If

End Sub

resio sam problem i evo resenja ako dodje neki neuki kao ja!

Ovaj kod brise sva unlock polja!
Znaci pposto zakljucate sva polja koja ne zelite da brisete onda upisete ovaj kod i to je to!

Private Sub Workbook_Open()

With ActiveSheet
.Protect
Application.DisplayAlerts = False
On Error Resume Next

.Cells.Value = vbNullString

On Error GoTo 0
Application.DisplayAlerts = True
.Unprotect
End With

End Sub

Nema na cemu!!!