VBA not working show run time error '13'

[Abdulkhadar]

Hi Excel Experts,
Below VB shows run time error '13' what's wrong in the vb. please help me to solve the problem.


Sub CheckUser()
Dim UserRow, SheetCol As Long
Dim SheetNm As String
With Sheet1
.Calculate
If .Range("B8").Value = Empty Then 'incorrect Username
MsgBox "Please enter a correct user name"
Exit Sub
End If

If .Range("B7").Value <> True Then 'incorrect password
MsgBox "Please enter a correct password"
Exit Sub
End If

LoginForm.Hide
.Range("B5,B6").ClearContents

UserRow = .Range("B8").Value 'User row

For SheetCol = 8 To 13
SheetNm = .Cells(4, SheetCol).Value 'sheet Name

If .Cells(UserRow, SheetCol).Value = "Ð" Then
Sheets(SheetNm).Unprotect "123"
Sheets(SheetNm).Visible = xlSheetVisible

End If

If .Cells(UserRow, SheetCol).Value = "Ï" Then
Sheets(SheetNm).Protect "123"
Sheets(SheetNm).Visible = xlSheetVisible
End If
If .Cells(UserRow, SheetCol).Value = "x" Then Sheets(SheetNm).Visible = xlVeryHidden
Next SheetCol
End With
End Sub

Thanks in advance,

 

[steve the fish]

Check the value of UserRow & SheetCol when the error happens. There is a good chance that the cell shows an error.

 

[Abdulkhadar]

Check the value of UserRow & SheetCol when the error happens. There is a good chance that the cell shows an error.

Thanks for quick reply sir,

In Sheet1 i use VB as below it runs perfect but the said VB is not working


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
If Not Intersect(Target, Range("H5:M24")) Is Nothing Then

If Target.Value = "Ð" Then
Target.Value = "Ï"
Exit Sub
End If
If Target.Value = "x" Then Target.Value = "Ð"
If Target.Value = "Ï" Then Target.Value = "x"
If Target.Value = Empty Then Target.Value = "Ð"
End If

If Not Intersect(Target, Range("G5:G24")) Is Nothing Then
If Target.Value = "Ð" Then
Range("G" & Target.Row & ":M" & Target.Row).Value = "Ï"
Exit Sub
End If
If Target.Value = "x" Then Range("G" & Target.Row & ":M" & Target.Row).Value = "Ð"
If Target.Value = "Ï" Then Range("G" & Target.Row & ":M" & Target.Row).Value = "x"
If Target.Value = Empty Then Range("G" & Target.Row & ":M" & Target.Row).Value = "Ð"
End If
End Sub

 

[steve the fish]

Did you check the cell?

 

[Abdulkhadar]

Did you check the cell?

yes sir, i think something is wrong in VB

 

[Abdulkhadar]

Did you check the cell?

when i remove below line of #1 VB it works

.Range("B5,B6").ClearContents

B5 contains user name and B6 contains password, so i want to hide when open login window every time.

 

[Computerman]

Abdulkhadar,
I would use:

.range("B5").value=""
.range("B6").value=""

this will set the values of cells B5 and B6 to nothing

Hope that helps,
Computerman

 

[Fluff]

What is the value in B8 & is it as the result of a formula?

 

[Abdulkhadar]

Abdulkhadar,
I would use:

.range("B5").value=""
.range("B6").value=""

this will set the values of cells B5 and B6 to nothing

Hope that helps,
Computerman

when use both range problem as it is, shows run time error, but if use only
.range("B6").value=""
it works

 

[Abdulkhadar]

What is the value in B8 & is it as the result of a formula?

row value which shows sheets to user lock, hide and unlock