Warning message that file is read only

J

jayneecm

New Member
Joined
Oct 22, 2024
Messages
3
Office Version
  1. Prefer Not To Say
Platform
  1. Windows
Morning Everyone

I'm new to this forum and hoping someone can help me. I'm self taught with VBA, I have a document with VBA code that updates information onto another workbook, but the other workbook is shared and therefore sometimes can be read only. I would like to incorporate a warning message that tells the user that it is Read Only so they know not to continue to upload the info. I have tried everything so far but the document just keeps opening without a warning message. can anyone help?

Here is my code:


VBA Code: 
Sub another_workbook()

Dim wbMaster As Workbook
Dim wbLocal As Workbook
Dim masterNextRow As Long

Set wbLocal = ThisWorkbook

Set wbMaster = Workbooks.Open("I:\Global\Figures\Forecasting and Invoicing MASTER.xlsm")


masterNextRow = wbMaster.Worksheets("Invoicing").Range("A" & wbMaster.Worksheets("Invoicing").Rows.Count).End(xlUp).Offset(1).Row



Worksheets("Invoicing").Unprotect "1312"
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 1).Value = wbLocal.Worksheets("Placement Form").Range("C3").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 2).Value = wbLocal.Worksheets("Placement Form").Range("I3").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 3).Value = wbLocal.Worksheets("Placement Form").Range("N3").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 4).Value = wbLocal.Worksheets("Placement Form").Range("F5").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 5).Value = wbLocal.Worksheets("Placement Form").Range("F9").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 6).Value = wbLocal.Worksheets("Placement Form").Range("F11").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 7).Value = wbLocal.Worksheets("Placement Form").Range("F19").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 8).Value = wbLocal.Worksheets("Placement Form").Range("F27").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 9).Value = wbLocal.Worksheets("Placement Form").Range("H27").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 10).Value = wbLocal.Worksheets("Placement Form").Range("A27").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 11).Value = wbLocal.Worksheets("Placement Form").Range("C27").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 12).Value = wbLocal.Worksheets("Placement Form").Range("H27").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 13).Value = wbLocal.Worksheets("Placement Form").Range("M27").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 14).Value = wbLocal.Worksheets("Placement Form").Range("F38").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 15).Value = wbLocal.Worksheets("Placement Form").Range("N38").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 16).Value = wbLocal.Worksheets("Placement Form").Range("C32").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 17).Value = wbLocal.Worksheets("Placement Form").Range("D99").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 19).Value = wbLocal.Worksheets("Placement Form").Range("M95").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 21).Value = wbLocal.Worksheets("Placement Form").Range("D95").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 20).Value = wbLocal.Worksheets("Placement Form").Range("M97").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 24).Value = wbLocal.Worksheets("Placement Form").Range("D97").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 29).Value = wbLocal.Worksheets("Placement Form").Range("F36").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 30).Value = wbLocal.Worksheets("Placement Form").Range("F17").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 31).Value = wbLocal.Worksheets("Placement Form").Range("F13").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 32).Value = wbLocal.Worksheets("Placement Form").Range("F15").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 33).Value = wbLocal.Worksheets("Placement Form").Range("F40").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 34).Value = wbLocal.Worksheets("Placement Form").Range("M21").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 35).Value = wbLocal.Worksheets("Placement Form").Range("N40").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 36).Value = wbLocal.Worksheets("Placement Form").Range("H32").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 37).Value = wbLocal.Worksheets("Placement Form").Range("L32").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 38).Value = wbLocal.Worksheets("Placement Form").Range("F34").Value
wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 39).Value = wbLocal.Worksheets("Placement Form").Range("K34").Value
Worksheets("Invoicing").Protect "1312"


MsgBox "Input saved."



End Sub
 
Last edited by a moderator:

Excel Facts

Shade all formula cells
To shade all formula cells: Home, Find & Select, Formulas to select all formulas. Then apply a light fill color.
Sort by date Sort by votes
VBA Code: 
ThisWorkbook.ReadOnly
This would normally give you the answer if the workbook is read-only or not.
However, a shared-workbook is never read-only - that's the point, kind of.

If you want to know how many (and which) users have currently opened the workbook you can use the workbook UserStatus Property.
VBA Code: 
users = thisworkbook.userstatus
if ubound(users,1) > 1 then _
msgbox "other users also have the workbook open at the moment."
 
Upvote 0
bobsan42 said:
VBA Code: 
ThisWorkbook.ReadOnly
This would normally give you the answer if the workbook is read-only or not.
However, a shared-workbook is never read-only - that's the point, kind of.

If you want to know how many (and which) users have currently opened the workbook you can use the workbook UserStatus Property.
VBA Code: 
users = thisworkbook.userstatus
if ubound(users,1) > 1 then _
msgbox "other users also have the workbook open at the moment."
Click to expand...
thanks for this, I will try it..... where abouts in my code would I put it?
 
Upvote 0
Hi @jayneecm. Another option for you, if I understood you correctly.
VBA Code: 
Option Explicit

Sub another_workbook()

    Dim wbLocal     As Workbook
    Set wbLocal = ThisWorkbook

    Dim wbMaster    As Workbook
    Set wbMaster = Workbooks.Open("I:\Global\Figures\Forecasting and Invoicing MASTER.xlsm")

    Dim isReadOnly  As Boolean
    isReadOnly = wbMaster.ReadOnly

    If isReadOnly Then
        MsgBox "The document is open as read-only. You will not be able to save changes! ", vbExclamation
        wbMaster.Close False
        Exit Sub
    End If

    Dim masterNextRow As Long
    masterNextRow = wbMaster.Worksheets("Invoicing").Range("A" & wbMaster.Worksheets("Invoicing").Rows.Count).End(xlUp).Offset(1).Row
    wbMaster.Worksheets("Invoicing").Unprotect "1312"

    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 1).Value = wbLocal.Worksheets("Placement Form").Range("C3").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 2).Value = wbLocal.Worksheets("Placement Form").Range("I3").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 3).Value = wbLocal.Worksheets("Placement Form").Range("N3").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 4).Value = wbLocal.Worksheets("Placement Form").Range("F5").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 5).Value = wbLocal.Worksheets("Placement Form").Range("F9").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 6).Value = wbLocal.Worksheets("Placement Form").Range("F11").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 7).Value = wbLocal.Worksheets("Placement Form").Range("F19").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 8).Value = wbLocal.Worksheets("Placement Form").Range("F27").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 9).Value = wbLocal.Worksheets("Placement Form").Range("H27").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 10).Value = wbLocal.Worksheets("Placement Form").Range("A27").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 11).Value = wbLocal.Worksheets("Placement Form").Range("C27").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 12).Value = wbLocal.Worksheets("Placement Form").Range("H27").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 13).Value = wbLocal.Worksheets("Placement Form").Range("M27").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 14).Value = wbLocal.Worksheets("Placement Form").Range("F38").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 15).Value = wbLocal.Worksheets("Placement Form").Range("N38").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 16).Value = wbLocal.Worksheets("Placement Form").Range("C32").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 17).Value = wbLocal.Worksheets("Placement Form").Range("D99").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 19).Value = wbLocal.Worksheets("Placement Form").Range("M95").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 21).Value = wbLocal.Worksheets("Placement Form").Range("D95").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 20).Value = wbLocal.Worksheets("Placement Form").Range("M97").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 24).Value = wbLocal.Worksheets("Placement Form").Range("D97").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 29).Value = wbLocal.Worksheets("Placement Form").Range("F36").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 30).Value = wbLocal.Worksheets("Placement Form").Range("F17").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 31).Value = wbLocal.Worksheets("Placement Form").Range("F13").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 32).Value = wbLocal.Worksheets("Placement Form").Range("F15").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 33).Value = wbLocal.Worksheets("Placement Form").Range("F40").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 34).Value = wbLocal.Worksheets("Placement Form").Range("M21").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 35).Value = wbLocal.Worksheets("Placement Form").Range("N40").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 36).Value = wbLocal.Worksheets("Placement Form").Range("H32").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 37).Value = wbLocal.Worksheets("Placement Form").Range("L32").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 38).Value = wbLocal.Worksheets("Placement Form").Range("F34").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 39).Value = wbLocal.Worksheets("Placement Form").Range("K34").Value

    wbMaster.Worksheets("Invoicing").Protect "1312"
    MsgBox "Input saved."
    wbMaster.Close SaveChanges:=True
    Set wbMaster = Nothing
    Set wbLocal = Nothing
End Sub
Good luck.
 
Upvote 0
MikeVol said:
Hi @jayneecm. Another option for you, if I understood you correctly.
VBA Code: 
Option Explicit

Sub another_workbook()

    Dim wbLocal     As Workbook
    Set wbLocal = ThisWorkbook

    Dim wbMaster    As Workbook
    Set wbMaster = Workbooks.Open("I:\Global\Figures\Forecasting and Invoicing MASTER.xlsm")

    Dim isReadOnly  As Boolean
    isReadOnly = wbMaster.ReadOnly

    If isReadOnly Then
        MsgBox "The document is open as read-only. You will not be able to save changes! ", vbExclamation
        wbMaster.Close False
        Exit Sub
    End If

    Dim masterNextRow As Long
    masterNextRow = wbMaster.Worksheets("Invoicing").Range("A" & wbMaster.Worksheets("Invoicing").Rows.Count).End(xlUp).Offset(1).Row
    wbMaster.Worksheets("Invoicing").Unprotect "1312"

    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 1).Value = wbLocal.Worksheets("Placement Form").Range("C3").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 2).Value = wbLocal.Worksheets("Placement Form").Range("I3").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 3).Value = wbLocal.Worksheets("Placement Form").Range("N3").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 4).Value = wbLocal.Worksheets("Placement Form").Range("F5").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 5).Value = wbLocal.Worksheets("Placement Form").Range("F9").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 6).Value = wbLocal.Worksheets("Placement Form").Range("F11").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 7).Value = wbLocal.Worksheets("Placement Form").Range("F19").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 8).Value = wbLocal.Worksheets("Placement Form").Range("F27").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 9).Value = wbLocal.Worksheets("Placement Form").Range("H27").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 10).Value = wbLocal.Worksheets("Placement Form").Range("A27").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 11).Value = wbLocal.Worksheets("Placement Form").Range("C27").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 12).Value = wbLocal.Worksheets("Placement Form").Range("H27").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 13).Value = wbLocal.Worksheets("Placement Form").Range("M27").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 14).Value = wbLocal.Worksheets("Placement Form").Range("F38").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 15).Value = wbLocal.Worksheets("Placement Form").Range("N38").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 16).Value = wbLocal.Worksheets("Placement Form").Range("C32").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 17).Value = wbLocal.Worksheets("Placement Form").Range("D99").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 19).Value = wbLocal.Worksheets("Placement Form").Range("M95").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 21).Value = wbLocal.Worksheets("Placement Form").Range("D95").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 20).Value = wbLocal.Worksheets("Placement Form").Range("M97").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 24).Value = wbLocal.Worksheets("Placement Form").Range("D97").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 29).Value = wbLocal.Worksheets("Placement Form").Range("F36").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 30).Value = wbLocal.Worksheets("Placement Form").Range("F17").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 31).Value = wbLocal.Worksheets("Placement Form").Range("F13").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 32).Value = wbLocal.Worksheets("Placement Form").Range("F15").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 33).Value = wbLocal.Worksheets("Placement Form").Range("F40").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 34).Value = wbLocal.Worksheets("Placement Form").Range("M21").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 35).Value = wbLocal.Worksheets("Placement Form").Range("N40").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 36).Value = wbLocal.Worksheets("Placement Form").Range("H32").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 37).Value = wbLocal.Worksheets("Placement Form").Range("L32").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 38).Value = wbLocal.Worksheets("Placement Form").Range("F34").Value
    wbMaster.Worksheets("Invoicing").Cells(masterNextRow, 39).Value = wbLocal.Worksheets("Placement Form").Range("K34").Value

    wbMaster.Worksheets("Invoicing").Protect "1312"
    MsgBox "Input saved."
    wbMaster.Close SaveChanges:=True
    Set wbMaster = Nothing
    Set wbLocal = Nothing
End Sub
Good luck.
Click to expand...
Amazing, this has done the trick and does exactly what I needed it to do. Can't thank you enough :)
 
Upvote 0
jayneecm said:
thanks for this, I will try it..... where abouts in my code would I put it?
Click to expand...
You need to make the check after opening the workbook but before starting to edit it.
But he method to be used for checking will depend on whether the file is actually a SharedWorkbook or not.
jayneecm said:
Amazing, this has done the trick and does exactly what I needed it to do. Can't thank you enough
Click to expand...
This answers the question - the other workbook is not actually a Shared one, just used by several people at once.
 
Upvote 0
Just FYI, you may find it easier to maintain if you use variables for the two worksheets as well (then you'll only need to change those in one place if, for example, the names change):

VBA Code: 
Sub another_workbook()

   Dim wbLocal     As Workbook
   Set wbLocal = ThisWorkbook
  application.screenupdating = false   
   Dim wbMaster    As Workbook
   Set wbMaster = Workbooks.Open("I:\Global\Figures\Forecasting and Invoicing MASTER.xlsm")
 
   Dim isReadOnly  As Boolean
   isReadOnly = wbMaster.ReadOnly
  
   If isReadOnly Then
      MsgBox "The document is open as read-only. You will not be able to save changes! ", vbExclamation
      wbMaster.Close False
      Exit Sub
   End If
  
   Dim InvoiceSheet As Worksheet
   Set InvoiceSheet = wbMaster.Worksheets("Invoicing")
  
   Dim PlacementSheet As Worksheet
   Set PlacementSheet = wbLocal.Worksheets("Placement Form")

   With InvoiceSheet
      Dim masterNextRow As Long
      masterNextRow = .Range("A" & .Rows.Count).End(xlUp).Offset(1).Row
      .Unprotect "1312"
  
      .Cells(masterNextRow, 1).Value = PlacementSheet.Range("C3").Value
      .Cells(masterNextRow, 2).Value = PlacementSheet.Range("I3").Value
      .Cells(masterNextRow, 3).Value = PlacementSheet.Range("N3").Value
      .Cells(masterNextRow, 4).Value = PlacementSheet.Range("F5").Value
      .Cells(masterNextRow, 5).Value = PlacementSheet.Range("F9").Value
      .Cells(masterNextRow, 6).Value = PlacementSheet.Range("F11").Value
      .Cells(masterNextRow, 7).Value = PlacementSheet.Range("F19").Value
      .Cells(masterNextRow, 8).Value = PlacementSheet.Range("F27").Value
      .Cells(masterNextRow, 9).Value = PlacementSheet.Range("H27").Value
      .Cells(masterNextRow, 10).Value = PlacementSheet.Range("A27").Value
      .Cells(masterNextRow, 11).Value = PlacementSheet.Range("C27").Value
      .Cells(masterNextRow, 12).Value = PlacementSheet.Range("H27").Value
      .Cells(masterNextRow, 13).Value = PlacementSheet.Range("M27").Value
      .Cells(masterNextRow, 14).Value = PlacementSheet.Range("F38").Value
      .Cells(masterNextRow, 15).Value = PlacementSheet.Range("N38").Value
      .Cells(masterNextRow, 16).Value = PlacementSheet.Range("C32").Value
      .Cells(masterNextRow, 17).Value = PlacementSheet.Range("D99").Value
      .Cells(masterNextRow, 19).Value = PlacementSheet.Range("M95").Value
      .Cells(masterNextRow, 21).Value = PlacementSheet.Range("D95").Value
      .Cells(masterNextRow, 20).Value = PlacementSheet.Range("M97").Value
      .Cells(masterNextRow, 24).Value = PlacementSheet.Range("D97").Value
      .Cells(masterNextRow, 29).Value = PlacementSheet.Range("F36").Value
      .Cells(masterNextRow, 30).Value = PlacementSheet.Range("F17").Value
      .Cells(masterNextRow, 31).Value = PlacementSheet.Range("F13").Value
      .Cells(masterNextRow, 32).Value = PlacementSheet.Range("F15").Value
      .Cells(masterNextRow, 33).Value = PlacementSheet.Range("F40").Value
      .Cells(masterNextRow, 34).Value = PlacementSheet.Range("M21").Value
      .Cells(masterNextRow, 35).Value = PlacementSheet.Range("N40").Value
      .Cells(masterNextRow, 36).Value = PlacementSheet.Range("H32").Value
      .Cells(masterNextRow, 37).Value = PlacementSheet.Range("L32").Value
      .Cells(masterNextRow, 38).Value = PlacementSheet.Range("F34").Value
      .Cells(masterNextRow, 39).Value = PlacementSheet.Range("K34").Value
     
      .Protect "1312"
   End With
   MsgBox "Input saved."
   wbMaster.Close SaveChanges:=True
   Set wbMaster = Nothing
   Set wbLocal = Nothing
End Sub
 
Upvote 0
You must log in or register to reply here.

Similar threads

R
  • Question Question
Copy Paste as Excel using VBA code
Replies
1
Views
794
Rfriend
R
S
  • Question Question
Un-protecting Word Doc by Excel VBA for fillin and upload data to workbook automatically
Replies
0
Views
605
SqnLdrMona
S
K
  • Question Question
Method saveas of object _workbook failed” error while trying to save an XLSM file
Replies
0
Views
706
kowal090
K
C
  • Question Question
Run time error 1004 - File read only
Replies
1
Views
1K
Jerry Sullivan
Jerry Sullivan
C
  • Question Question
How to Suppress Warning message in loop
Replies
3
Views
940
chelseaaa
C

Forum statistics

Threads
1,223,885
Messages
6,175,184
Members
452,615
Latest member
bogeys2birdies

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top