byval

I have a module called UpdateCheck with procedures which check another document to see if the version number has changed. If it has, it asks the user if they want to update the document to the new version. This is only to update the modules because the formatting of the worksheets is set in...

According to this thread: https://www.mrexcel.com/forum/excel-questions/1048556-vba-close-windows-explorer-window.html this code closes a session of Windows Explorer: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName...

Hello Excel gurus, I am new to this forum, this is my first posting, so my apologies in advance if I miss a posting rule... Doing Excel VBA engineering automation just for fun, I am not a professional programmer. Have a small code that calls a DOS program (spice.exe) through the Shell. It...

Hi all, Workbook Demo. As the tilte says, this is just a standard vba inputbox that I have customized with the use of the Windows API in order to validate user input dynamically as you type-in as well as masking the input with a password character (*) if required. Another cool functionality I...

Can anyone help me in passing handle values to a function as a variable. This is to get the paths of all the special folders. The undernoted code works perfectly well: Private Declare Function GetFolderPath Lib "shfolder.dll" _ Alias "SHGetFolderPathA" _ (ByVal hwndOwner As Long, _...

I found a code that could solve alot of my problems, but I get 'Run time Error 5 , Invalid procedure or Argument. Anyone that could help me out with the issue? Code is used for when printing lots of sheets, some papers are missing / skipps. This code is suppost to hold VBA until the sheet has...

Hi Folks, I've been trying to adapt some code from a VBA book, but I can't seem to get it right (most likely because it's all Ελληνικά to me... :oops: ). The code is for a title-less UserForm. Examples are abundant on the Web, but I haven't (yet) found one that does what I'd like to do, the...

I'm borrowing these two code from another user on here. I'm trying to download some smaller files (not overly big) via a very slow to slow satellite connection (wx dependent). The first code (FileAPI) through a "Download File Process Failed" and the second code broke at "WinHttpReq.send"...

I found the following with pretty much does what is wanted - 'Written: February 14, 2011 'Author: Leith Ross ' 'NOTE: This code should be executed within the UserForm_Activate() event. Private Declare Function GetForegroundWindow Lib "User32.dll" () As Long Private Declare Function...

Hi, I have written something like Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim ChangedRow As Integer With Sh If Not Intersect(Target, .Columns(3)) Is Nothing Then On Error GoTo bm_Safe_Exit Application.EnableEvents =...

So currently I am using this soundme code to play a .wav file #If Win64 Then Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _ Alias "PlaySoundA" (ByVal lpszName As String, _ ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean #Else Private Declare...

Just had a question that I googled and searched this forum and every where else but could not find a solution anywhere. So I am using this code to help me play a .wav file #If Win64 Then Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _ Alias "PlaySoundA" (ByVal lpszName...

Hi, i am using outlook office 365 now and i have a rule and vba script that in 2007 worked fine but now even though i put as default Internet explorer as PDF reader keep asking every time that a new email comes that i have a rule for which program to use open the PDF and I have to print it...

When it crashes the error is highlighted on this line: Me.Caption = VBA.UCase$(Format$(VBA.Date, "yyyy - mmmm ")) & VBA.Day(VBA.Date) _ & " (" & VBA.Date & ")" I changed the declaration from this: Private Declare Function GetKeyState Lib "user32" (ByVal...

I wrote some code in the past that enables the user to highlight the cell currently under the mouse pointer ... See a code example here : https://www.mrexcel.com/forum/excel-questions/1090283-hover-over-vs-selecting-cell-post5240255.html#post5240255 The code in the link works fine except that...

Hi all, Not sure if this is the right section of the forum to ask this question but I am trying to get the accessibility names of the workbook scrollbars and tabs .. The AccName function returns a string that is language dependent so when I run the code on my machine, I get the AccName in...

Hi, I am using below API in Excel 32-bit and it was running fine until then the use has 32-bit, but now the problem is that some user is running 32-bit and some 64-bit, and below API works only on 32-bit. 'Data Processing Workflow Tool version 1.1_New API Private Declare Function...

Hello everybody. I'm in troubles while surfing a web site: the deadlock is the modal window you can see in the image. https://imgur.com/a/iq4KSDY It absolutely blocks every Excel actions: I've to manually click "OK" in order to unblock the process. I've tried the following solution, but...

Hi, I have the following code to update the icon in the taskbar for my userform below. It was great however, we have dual monitor setups and the primary monitor will show the correct icon in the task bar but all additional monitors have the usual excel icon. How can I switch all monitor taskbar...

Hello, I got stuck on the following code that shows date selected from datepicker Private Sub select_label(msForm_C As MSForms.Control) '/* Capture the selected date */ Dim i As Integer, sel_date As Date i = Split(msForm_C.Name, "_")(1) - 1 sel_date = FirstCalSun(curMonth) + i...