Password protect worksheet for multiple users

[Mötley]

Hello,

let's say users A and B share same protected workbook. User A wants to edit workbook, then he protects it again with password. Then user B wants to edit this same workbook, but he CANNOT edit, delete etc cells user A just modified. How can I do this or is this even possible??

In a nut shell, same workbook with password protection, Users A and B both have the same workbook, User A modifies workbook, then protects. User B modifies workbook but cannot edit user A's cells.

Thank you in advance!

 

[Coryj5]

Does it matter if they know what was changed or not?

You could enable "track changes" to make what changes were made visible.

 

[Mötley]

No it doesn't matter.. They can see each others editing

 

[Mötley]

Maybe I could use macro?? So that when A or B opens workbook, it asks "User name" and "Password" ???

 

[Coryj5]

you could do that, but it would still allow them to delete the previous editings. Is that not what you wanted to avoid?

 

[Mötley]

Alright.. So what are my options? What is the best way to do this? Or is there?

how about this code

Private Sub CommandButton69_Click()

Dim UserName As String
Dim Pword As String
Dim Qualifier As String

Sheets("Maansiirtoautot").Select

Application.ScreenUpdating = False

UserName = InputBox("Enter your name")
Qualifier = InputBox("Enter your password")

Select Case UserName
    Case "Mikko"
        If Qualifier = "1" Then              
        ActiveSheet.Unprotect Password:="1"          
        Columns("AU23:BA24").Select
        Selection.Locked = False
        [A1].Select
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="1" 'Replace with the worksheet password
        Else
        MsgBox ("That is the incorrect password. Close the book and try again")
        End If
        
    Case "Lynn"
        If Qualifier = "2" Then          
        ActiveSheet.Unprotect Password:="2"     
        Columns("AU23:BA24").Select
        Selection.Locked = False
        [A1].Select
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="test_one"
        Else
        MsgBox ("That is the incorrect password. Close the book and try again")
        End If
    Case Else
        MsgBox ("You have view only rights to this spreadsheet")

End Select
Application.ScreenUpdating = True

End Sub

 

[Coryj5]

i'd love to give some ingenious idea... but personally, im at a loss. keep posting and maybe someone else will have a workaround.

sorry, wish i could help on this one. i'll keep thinking and repost if it strikes me.

 

[Mötley]

Yeah thanks! No problem, wasn't THAT important