ms excel sheet wise permission

[isurunalaka]

excel workbook ekaka worksheet walata userslata wenawenama permission denna widihak thynawada?

i.e - sheet1 can only be accessed by user1 and sheet2 can only be accessed by user2 etc...

 

[asknrk]

excel workbook ekaka worksheet walata userslata wenawenama permission denna widihak thynawada?

i.e - sheet1 can only be accessed by user1 and sheet2 can only be accessed by user2 etc...

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Dim Msg As String
Dim UserEntry As Variant

Msg = InputBox("What is the password?")

Do
Sheet1.Activate
UserEntry = InputBox(Msg)

If UserEntry = "test" Then Exit Sub
If UserEntry = False Then
Msg = "Invalid Password!"
Msg = Msg & vbNewLine
Msg = Msg & "What is the password?"

Loop
Sheet1.Activate = UserEntry

End Sub


source:http://stackoverflow.com/questions/8145215/individual-worksheet-passwords

 

[Pathumpiyasa]

Ad ekenda user waganda one ?

 

[Pathumpiyasa]

naththan file ekai user name tikai password wikai sheet name tikai deepan karala dennam.

 

[isurunalaka]

naththan file ekai user name tikai password wikai sheet name tikai deepan karala dennam.

Sheets are 1-10
Usernames are username1-10
Passwords are password1-10

Man passe mata one data dagannan

 

[isurunalaka]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Dim Msg As String
Dim UserEntry As Variant

Msg = InputBox("What is the password?")

Do
Sheet1.Activate
UserEntry = InputBox(Msg)

If UserEntry = "test" Then Exit Sub
If UserEntry = False Then
Msg = "Invalid Password!"
Msg = Msg & vbNewLine
Msg = Msg & "What is the password?"

Loop
Sheet1.Activate = UserEntry

End Sub


source:http://stackoverflow.com/questions/8145215/individual-worksheet-passwords

Meka wedada

 

[isurunalaka]

meka danna ekek nedda ban?

 

[vipulavs]

For Google Spreadsheets: Tools > Protect Sheet

For MS Excel: see here https://support.office.com/en-ca/ar...elements-dbf706e0-ba22-4a08-84d8-552db16eef11