Blocarea celulelor dupa ce s-a introdus date in ele EXCEL

salut,

am si eu un timesheet si as dori ca dupa ce acest timesheet e completat si salvat sa nu mai poata sa fie modificat. Am cautat pe net si am gasit ca se poate face doar cu vba
dar nu stiu cum sa bag acest macro sa functioneze in excelul meu

Codul de vba este acesta:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    If ActiveSheet.Name = "Sheet1" Then
    On Error Resume Next
'Resume to next line if any error occurs
    Dim Cell As Range
    With ActiveSheet
'first of all unprotect the entire
'sheet and unlock all cells
    .Unprotect Password:=""
    .Cells.Locked = False
'Now search for non blank cells
'and lock them and unlock blank cells
    For Each Cell In ActiveSheet.UsedRange
    If Cell.Value = "" Then
    Cell.Locked = False
    Else
    Cell.Locked = True
    End If
    Next Cell
    .Protect Password:=""
'Protect with blank password, you can change it
    End With
    Exit Sub
    End If
End Sub

>>>>luat de la  aceasta adresa http://www.ozgrid.co...ad.php?t=161591
iar aici si linkul catre excel https://app.box.com/...i1lgza2fbvxt75m

Va rog sa ma ajutati

protect sheet in excel

 rintintin, on 13 martie 2017 - 17:41, said:

Nu stiu cat de sigura e asta. Acum vreo 2 ani stiu sigur ca avea o hiba. Daca deschideai tabelul cu orice altceva decat microsoft excel nu era nici o celula blocata. Din intamplare am aflat asta cand am deschis un mail de serviciu de pe linuxul de acasa.
Probabil e mai sigur ce spune initiatorul insa nu ma pricep asa bine.

cu protect sheet trebuie sa intru eu mereu pe acest excel.. eu vreau sa il acesez doar atunci cand e nevoie in rest el dupa ce e salvat sa nu mai poata sa fie modificat de nimeni

gata am gasit o combinatie care merge asa cum mi-am dorit eu utilizatorul sa intre introduce datele si apoi nu mai poate sa modifice mai jos sunt pasi ce trebuie urmati se foloseste VBA

1. select all -> Ctr+1 -> Uncheck Locked
2. Alt+t+p+p to protect
3. Alt+t+p+p to unprotect
4. Select all -> ctrl+1 -> check box to Locked
5. Select a range of cells that you want to edit -> ctrl+1 -> uncheck Locked
6. Alt+t+p+p
a. select sheet
b. select Worksheet
c. select Change
d. delete all and copy code below
=========
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="pass"
Target.Locked = True
ActiveSheet.Protect Password:="pass"
End Sub

O chestie mai elaborata aici:

https://answers.micr...ee-dfa310e3e319

De asemenea, cu setarile de securitate default, la o noua deschidere a fisierului macros sunt disabled. Nu se poate modifica ce a fost scris anterior, dar se poate modifica tot ce e scris de la acel punct inainte. Si pe Excel si pe LibreOffice.

Edited by bladhaund, 24 April 2017 - 13:53.